home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Graphics / ProRen / Install_deutsch < prev    next >
Text File  |  1997-07-12  |  4KB  |  180 lines
  1. ; $VER: ProRen V2.0 Installer
  2. ; Script to install Release 2.0 of ProRen
  3.  
  4. (complete 0)
  5.  
  6. ;*** Strings festlegen ***
  7. (set #askdir-main-text
  8. (cat "Wohin soll ProRen 2.0 installiert werden ?\n"
  9.      "(Es wird das Verzeichnis ProRen angelegt.)"
  10. ))
  11.  
  12. (set #askbool-docs-text
  13. (cat "Soll die Dokumentation (HTML) nach ProRen/docs installiert werden ?"
  14. ))
  15.  
  16. (set #askdir-docs-text
  17. (cat "Wohin soll die Dokumentation installiert werden ?"
  18. ))
  19.  
  20. (set #askbool-rexx-text
  21. (cat "Sollen die Arexxscripts nach ProRen/rexx installiert werden ?"
  22. ))
  23.  
  24. (set #askdir-rexx-text
  25. (cat "Wohin sollen Arexxscripts installiert werden ?"
  26. ))
  27.  
  28. (set #askbool-ctlg-text
  29. (cat "Soll der deutsche Katalog nach LOCALE:catalogs/deutsch installiert werden ?"
  30. ))
  31.  
  32. (set #askdir-ctlg-text
  33. (cat "Wohin soll der deutsche Katalog installiert werden ?"
  34. ))
  35.  
  36. (set #Registration
  37. (cat "ProRen ist ShareWare!\nWenn Sie nicht registriert sind können Sie nicht "
  38.      "alle Funktionen uneingeschränkt benutzen. Wie Sie "
  39.      "sich registrieren können, steht in der Anleitung!"
  40. ))
  41.  
  42. (welcome "\nWillkommen zur Installation von "@app-name"")
  43.  
  44. ;*** nach Ziel für Hauptdateien fragen ***
  45. (set #maindir
  46.   (askdir
  47.     (prompt #main-query-text)
  48.     (default @default-dest)
  49.     (help @askdir-help)
  50.   )
  51. )
  52. (complete 5)
  53.  
  54. ; ***falls prdir nicht existiert
  55. (set #prdir (tackon #maindir "ProRen"))
  56. (if
  57.   (= 0
  58.     (exists #prdir (noreq))
  59.   )( ;then install
  60.     (copyfiles (source "/ProRen.info") (dest #maindir))
  61.     (set #icon (tackon #maindir "ProRen"))
  62.     (makedir #prdir)
  63.     (set #update 0)
  64.   )( ;else update
  65.     (set #update 1)
  66.   )
  67. )
  68. (complete 10)
  69.  
  70. (set #gfxdir (tackon #prdir "gfx"))
  71. (makedir #gfxdir)
  72.  
  73. ; *** Nach docsdir fragen
  74. (if
  75.   (= 1
  76.     (askbool (prompt #askbool-docs-text) (help @askbool-help))
  77.   )(  ; then
  78.     (set #docsdir (tackon #prdir "docs"))
  79.     (makedir #docsdir)
  80.     (copyfiles (source "docs.info") (dest #prdir))
  81.   )(  ; else
  82.     (if (= 0 @user-level)
  83.       ( ;then
  84.         (set #docsdir (tackon #prdir "docs"))
  85.         (makedir #docsdir)
  86.         (copyfiles (source "docs.info") (dest #prdir))
  87.       )( else
  88.         (set #docsdir
  89.           (askdir
  90.             (prompt #docs-query-text)
  91.             (default #prdir)
  92.             (help @askdir-help)
  93.           )
  94.         )
  95.       )
  96.     )
  97.   )
  98. )
  99. (complete 15)
  100.  
  101. ; *** Nach rexxdir fragen
  102. (if
  103.   (= 1
  104.     (askbool (prompt #askbool-rexx-text) (help @askbool-help))
  105.   )(  ; then
  106.     (set #rexxdir (tackon #prdir "rexx"))
  107.     (makedir #rexxdir)
  108.   )(  ; else
  109.     (if (= 0 @user-level)
  110.       ( ;then
  111.         (set #rexxdir (tackon #prdir "rexx"))
  112.         (makedir #rexxdir)
  113.       )( else
  114.         (set #rexxdir
  115.           (askdir
  116.             (prompt #rexx-query-text)
  117.             (default #prdir)
  118.             (help @askdir-help)
  119.           )
  120.         )
  121.       )
  122.     )
  123.   )
  124. )
  125. (complete 20)
  126.  
  127. ; *** Nach ctlgdir fragen
  128. (if
  129.   (= 1
  130.     (askbool (prompt #askbool-ctlg-text) (help @askbool-help))
  131.   )(  ; then
  132.     (set #ctlgdir "LOCALE:catalogs/deutsch")
  133.     (makedir #ctlgdir)
  134.   )(  ; else
  135.     (if (= 0 @user-level)
  136.       ( ;then
  137.         (set #ctlgdir "LOCALE:catalogs/deutsch")
  138.         (makedir #ctlgdir)
  139.       )( else
  140.         (set #ctlgdir
  141.           (askdir
  142.             (prompt #ctlg-query-text)
  143.             (default #prdir)
  144.             (help @askdir-help)
  145.           )
  146.         )
  147.       )
  148.     )
  149.   )
  150. )
  151. (complete 25)
  152.  
  153. ;*** Hauptdateien kopieren ***
  154. (copyfiles (source "ProRen") (dest #prdir) (infos) (noposition))
  155. (complete 30)
  156. (copyfiles (source "Register") (dest #prdir) (infos) (noposition))
  157. (complete 35)
  158. (copyfiles (source "gfx") (dest #gfxdir) (all))
  159. (complete 40)
  160.  
  161. (if (= #update 0)
  162.   (
  163.     (copyfiles (source ".arexx") (dest #prdir))
  164.     (complete 45)
  165.   )
  166. )
  167.  
  168. (copyfiles (source "docs/deutsch") (dest #docsdir) (all) (infos) (noposition))
  169. (complete 85)
  170. (copyfiles (source "rexx") (dest #rexxdir) (all))
  171. (complete 95)
  172. (copyfiles (source "catalogs/deutsch/proren.catalog") (dest #ctlgdir))
  173.  
  174. ;*** Fertig ***
  175. (complete 100)
  176. (message #Registration (all))
  177.  
  178. (set @default-dest #prdir)
  179.  
  180.